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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capá para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, po- 
derão ser comprados, a preços atualizados, da seguinte forma: 1. PES- 
SOALMENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribui- 
dor local, cujo endereço poderá ser facilmente conseguido junto a qual- 
quer jornaleiro de sua cidade. Em São Paulo, os endereços são: rua Briga- 
deiro Tobias, 773, Centro; av. Industrial, 117, Santo André; e no Rio de 
Janeiro: rua da Passagem, 93, Botafogo. 2. POR CARTA — Poderão ser 
solicitados exemplares atrasados também por carta, que deve ser enviada 
para DINAP — Distribuidora Nacional de Publicações — Números Atra- 
sados — Estrada Velha de Osasco, 132, Jardim Teresa — CEP 06000 — 
Osasco — SP. Não envie pagamento antecipado. O atendimento será fei- 
to pelo reembolso postal e o pagamento, incluindo as despesas postais, 
deverá ser efetuado ao se retirar a encomenda na agência do Correio. 3. 
POR TELEX — Utilize o nº (011) 33 670 DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Cama- 
rate — Lisboa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão 
atendidos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, 
além do número da edição. 
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Além de blocos gráficos e do conjunto 
de caracteres do computador, 

existem outros recursos que podem ser 
utilizados na criação de letras. 

Este artigo mostra um deles. 


Os dois tipos de letra criados pelo 
programa do artigo Manchetes e Letrei- 
ros (página 912) são construídos a par- 
tir de blocos gráficos ou do conjunto de 
caracteres-padrão da máquina. Mas há 
um outro meio de criar letras: usando 
gráficos de alta resolução para dese- 
nhá-las, linha por linha. 

O programa que se segue funciona 
de modo semelhante ao dos blocos grá- 
ficos. Cada letra é definida por uma sé- 
rie de dados alocados em uma Instrução 
DATA, que informam ao computador 
como ela será. Essa informação é arma- 
zenada em uma matriz, e é possível dar 
entrada às palavras que se quer escrever 
na forma de um cordão alfanumérico. 
Como antes, as letras são montadas con- 
forme as instruções encontradas e exi- 
bidas na tela. Mais tarde, você apren- 
derá a usar essas telas como parte de 
seus próprios programas. 





UM TIPO A SEU GOSTO 


Os gráficos de alta resolução facili- 
tam enormemente a tarefa de criar o seu 
tipo de letra preferido. Isso acontece 
porque a expansão dos caracteres da 
ROM é limitada à duplicação da altura 
ou da largura dos caracteres. Ora, as le- 
tras constituídas por blocos gráficos es- 
tão completamente fixadas devido aos 
números das linhas DATA. 

Por outro lado, os dados no nosso 
programa também fixam a maneira co- 
mo a letra vai ser desenhada (o L, por 
exemplo, é formado de uma linha ver- 
tical e uma horizontal). Mas essas ins- 
truções são relativas e não determinam 
a aparência final das letras. Pense em 
cada letra como se ela estivesse encer- 
rada dentro de uma caixa imaginária. Se 
a caixa é alta e estreita, temos uma le- 
tra alta e estreita; se ela for baixa e lar- 
ga, assim será a letra. O programa é es- 





crito de tal forma que é possível definir 
essas variáveis com fatores de escala. 


Agora digite o programa... 


10 
20 
30 
40 
50 
60 
70 
80 
100 
RA” 


POKE 23658B,8 

DIM N(26): DIM A(26,12,2) 
FOR N=1 TO Z6 

READ N(N) 

FOR M-1 TO N(N) 

READ A(N,M,1),A(N,M,2) 

NEXT M 

NEXT N 
INPUT 
LINE AS: 


"INTRODUZA UMA PALAV 
IF AS="" THEN 


GoTo 100 





“DESENHE LETRAS 
LINHA POR LINHA 
ALTURA E LARGURA 
DESENHE SEU PRÓPRIO 
TIPO DE LETRA 







"DIGITE FATOR X",X 
"DIGITE FATOR Y”",TY 


110 INPUT 


120 INPUT 

145 CLS 

130 FOR N=1 TO LEN AS 

140 LET TS$=AS(N): TF TS<"A” OR 
T5>"2" THEN NEXT N: GOTO 100 

150 PLOT (10*(N-1) *X) +X*ZA (CODE 
TS$-55,1,1), 2Z0+Y*HA(CODE T5-55,] 
2) 

160 FOR M=2 TO N(CODE T5-55) 


170 DRAW X*A(CODE T5S-55,M,1),Y 


*A (CODE TS-55,M,2) 

180 NEXT M 

190 NEXT N 

200 GOTO 100 
1000 DATA 8,0,0,5,1,1,4,0,1,-1, 
0,-5,0,3,-6,0 
1010 DATA 12,0,0,0,6,5,0,1,-1,0 
Lo, =1L,=1,7-5,0,5,0,d," L$M,r dl,” 





MIRA nE E a 1es Saron ES 
| | | 


me Fla A! 

1020 DATA 8,6,1,-1,-1,-4,0,-1,1 
0, hds, DL S 

1030 DATA 7,0,0,0,6,4,0,2,-2,0, 
-2,=2,2,74,0 

1040 DATA 7,6,0,-6,0,0,6,6,0,-6 
:0,0,7-3,5,0 

1050 DATA 6,0,0,0,6,6,0,-6,0,0, 
3,5, U 

1060 DATA 10,5,2,1,0,0,-1,-1,-1 
,:=4,0,-1,1,0,4,1 1,4,0,1,71 
1070 DATA 6,0,0,0,6,0,-3,6,0,0, 


3,0,-6 

1080 DATA 6,0,0,6,0,-3,0,0,6,-3 
10,6,0 

1090 DATA 5,0,1,1,-1,4,0,1,1,0, 
5 

1100 DATA 6,0,0,0,6,0,-3,6,3,-6 
= 3,6,73 


1110 DATA 3,6,0,-6,0,0,6 


1120 DATA 5,0,0,0,6,3,-3,3,3,0, 

=6 

1130 DATA 4,0,0,0,6,6,-6,0,6 

1140 DATA 9,1,0, =. 1,0,4,1)l,1,4, 

0,1,=1,0,-4,-1,-1,74,0 

1150 DATA 7,0,0,0,6,5,0,1,-1,0, 

1, =1,-1,=5,0 

1160 DATA 9,4,2,2,-2,-5,0,-1,1, 

Dt d1ç4, 0 dr h,0,75 

1170 DATA 9,0,0,0,6,5,0,2,-1,0, 

*1,=1,—-1,5,0,4,0,2,73 

1180 DATA 12,0,1,1,-1,4,0,1,1,0 

:L,.=1,1,-4,0,-1,1,0,1,1,1,4,0,2 
e: 

1190 DATA 4,3,0,0,6,-3,0,6,0 

1200 DATA 6,0,6,0,-5,1,-1,4,0,1 

Ap RE, 

1210 DATA 3,0,6,3,-6,3,6 

1220 DATA 5,0,6,1,-6,2,3,2,-3,1 

16 


1230 DATA 5,0,0,6,6,-3,73,-3,3, 
6,76 
1240 DATA 5,3,0,0,3,-3,3,3,73,3 


55 
1250 DATA 4,6,0,-6,0,6,6,-6,0 


10 PMODE 1,1:PCLS 

20 DIM N(26),A(26,12,2) 

30 FOR N=1 TO 26 

40 READ N(N) 

50 FOR M=1 TO N(N) 

60 READ A(N,M,1),A(N,M,2) 

70 NEXT M,N 

B0 CLS: INPUT” INTRODUZA A PALAVR 

à ";AS:IF AS="" THEN GOTO 80 

90 INPUT"QUAL O FATOR X ";X 

100 INPUT"QUAL O FATOR Y ”";Y 
110 CLS:PCLS:SCREEN 1,0:FOR N=1 
TO LEN(AS) 

120 TS=MIDS (AS,N,1):IF TS<"A” O 

R TS$>"Z" THEN NEXT N:GOTO 80 
130 J=(10*(N-1) *X) +X*A( (ASC(TS) 
-64),1,1):K=10+Y*A(ASC(T$)-64,1 
512) 

140 FOR M=2 TO N(ASC(TS)-64) 
150 F=X*A( (ASC(TS)-64),M,1) 

160 G=Y*A((ASC(TS)-64),M,2) 

170 LINE(J,K)-(J+E,G+kK), PSET 
180 J=J+F:K=K+G 

190 NEXT M,N 


200 IF INKEY$="" THEN 200 
210 GOTO BO 

1000 DATA 9,0,6,0,-5,1, 
14,0,3,0,2,0,73,-6,0 


-1,4,0,1 


1010 DATA 12,0,0,0,6,5,0,1,-1,0 
ç=d,-1,-1,-5,0,5,0,1,7-1,0,71,71 
=1,75,0 

1020 DATA 8,6,1,-1,-1,-4,0,-1,1 


0,84,1,1,4,0,d,7) 
1030 DATA 7,0,0,0,6,4,0,2,-2,0, 


-2,-2,-2,-4,0 
1040 DATA 7,6,0,-6,0,0,6,6,0,-6 
:10,0,;73,5,0 
1050 DATA 7,0,0,6,0,-6,0,0,3,5, 
0,-5,0,0,3 
1060 DATA 10,7,1,-1,-1,-4,0,-1, 


1,0,4,1,1,4,0,1,-1,0,-1,-1,0 
1070 DATA 6,0,0,0,6,0,-3,6,0,0, 


3,0,-6 

1080 DATA 6,0,0,6,0,-3,0,0,6,-3 
(0,6,0 

1090 DATA 7,0,0,6,0,-3,0,0,5,- 
sd ,=1,0,= 14,01 

1100 DATA 6,0,0,0,6,0,-3,6,3,-6 
Phanti DS Ea 


1110 DATA 3,0,0,0,6,6,0 


1120 DATA 5,0,6,0,-6,3,3,3,-3,0 
16 
1130 DATA 4,0,6,0,-6,6,6,0,-6 


1140 DATA 9,1,0,-1,1,0,4,1,1,4, 
0,1,71,0,74,71,71,74,0 

1150 DATA 7,0,6,0,-6,5,0,1,1,0, 
L,=1,4,75,0 

1160 DATA 11,5,0,-4,0,-1,1,0,4, 
L,4,4,0,l,mLl;ct,;cl,2,L,0,78,0 ld, 


o 

1170 DATA 9,0,6,0,-6,5,0,1,1,0, 
1,=-1,1,7-5,0,4,0,2,3 

1180 DATA 12,6,1,-1,-1,-4,0,-1, 
1,0,1,1,1,4,0,1,1,0.1,=1,1,-4,0 
=LeTi 

1190 DATA 4,3,6,0,-6,-3,0,6,0 
1200 DATA 6,0,0,0,5,1,1,4,0,1,- 
.,0,753 

1210 DATA 3,0,0,3,6,3,-6 

1220 DATA 5,0,0,1,6,2,73,2,3,1, 
-6 

1230 DATA 5,0,0,6,6,-3,-3,-3,3, 
6,76 

1240 DATA 5,3,6,0,73,73,73,3,3, 
de =3 


1250 DATA 4,0,0,6,0,-6,6,6,0 


ny 


10 SCREEN O 

20 DIM N(26),A(26,12,2) 
30 FOR N=1 TO 26 

40 READ N(N) 

50 FOR M=1 TO N(N) 

60 READ A(N,M,1),A(N,M,2) 
70 NEXT M 


75 NEXT N 

BO INPUT"introduza a palavra”;AÃ 
3 

90 INPUT"introduza a escala do 

x" :X 

100 INPUT"introduza a escala do 
vv" 4% 


110 SCREEN 2 

115 FOR N=1 TO LEN(AS) 

120 TS=MIDS(AS.N,1):IF TS<CA” O 
A TS>"Z"THEN GOTO 80 


130 J=(10*%(N-1) *X) +X*A( (ASC(TS) 
-64),1,1):K=10+YxA((ASC(TS)-64) 
11,2) 

140 FOR M=2 TO N(ASC(TS)-64) 
150 F=X*A((ASC(TS)-64),M,1) 

160 G=Y*A((ASC(T$S)-64),M,2) 

170 LINE (J,K)-(J+F,K+6) 

180 J=J+F:K=K+G 

190 NEXT M 

195 NEXT N 

200 IF INKEYS="" THEN 200 

210 GOTO 80 


1000 DATA 9,0,6,0,-5,1,-1,4,0,1 
14,0,3,0,2,0,73,-6,0 

1010 DATA 12,0,0,0,6,5,0,1,-1,0 
a 4 as? O Ta MO Hab RS! APR ND LAR RR 1 a PES 


Pe ad 

1020 DATA 8,6,1,-1,-1,-4,0,-1,1 
,0,4,1,1,4,0,1,7]1 

1030 DATA 7,0,0,0,6,4,0,2,-2,0, 
-L,“2,/"8,"4,0 
1040 DATA 7,6,0, 
,(10,0,-3,5,0 

1050 DATA 7,0,0,6,0, 
0,=5,0,0,:3 

1060 DATA 10,7,1,-1,-1,-4,0,-1, 
1,0,4,1,1,4,0,1,-1,0,-1,-1,0 
1070 DATA 6,0,0,0,6,0,-3,6,0,0, 
3,0,-6 


-6,0,0,6,6,0,-6 


-6,0,0,3,5, 


1080 DATA 6,0,0,6,0,-3,0,0,6,-3 
/0,6,0 
1090 DATA 7,0,0,6,0,-3,0,0,5,- 


O a SPO + Pa 1a À 

1100 DATA 6,0,0,0,6,0, 
€3,6,73 

1110 DATA 3,0,0,0,6,6,0 

1120 DATA 5,0,6,0,-6,3,3,3,-3,0 
(6 


-=1,6,3,"6 


1130 DATA 4,0,6,0,-6,6,6,0,-6 
1140 DATA 9,1,0,-1,1,0,4,1,1,4, 
D,)l,-1,0,-4,-1),- L,= 4,0 

1150 DATA 7,0,6,0,-6,5,0,1,1,0, 
1, º1,4,75,0 

1160 DATA 11,5,0,-4,0,-1,1,0,4, 


1,1,4,0,L,-1l,=-2,71,2,1,0,74,"-l), 
a 


1170 DATA 9,0,6,0,-6,5,0,1,1,0, 
1,-1,1,-5,0,4,0,2,3 

1180 DATA 12,6,1,-1,-1,-4,0,-1, 
1,.0,1,2,1,4,0,1,1,0,1,-1,1,-4,0 
ja 4 

1190 DATA 4,3,6,0,-6,-3,0,6,0 
1200 DATA 6,0,0,0,5,1,1,4,0,1,- 
1,0,-5 

1210 DATA 3,0,0,3,6,3,-6 

1220 DATA 5,0,0,1,6,2,73,2,3,1, 

-6 

1230 DATA 5,0,0,6,6,-3,-3,-3,3, 

6,-6 


+240 DATA 5,3,6,0,73,73,73,3,9., 
3,3 


1250 DATA 4,0,0,6,0,-6,6,6,0 
5 LOMEM: 16384 
10 HOME : HGR HCOLOR= 3 


20 DIM N(26),A(26,12,2) 
30 FORN= 1 TO Zé 

40 READ N(N) 

50 FORM = 1 TO N(N) 

60 READ A(N,M,1),A(N,M,2) 














70 NEXT M: NEXT N 

75 HOME : HOR 

BO VTAB 22: INPUT "INTRODUZA A 
PALAVRA ";AS: IF AS = "” THEN 
GoTo 80 

90 INPUT "QUAL O FATOR X? ";X 
100 INPUT "QUAL O FATOR Y? ";Y 


110 FORN = 1 TO LENG(AS) 

120 TS = MIDS (AS.N,1): IF 18 
< "A" OR TS > "Z* THEN NEXT N: 
GoTo 80 

LU dm (10 R 
* A(( ASC (T8) 
Q+Y * Al ASC 
140 FORM = 
64) 

150 F =X 7% A(Í 
M,1) 

160 G = Y * AC(( 

M, 2) 

170 HPLOT J,K TO J + F,6G 
180 ) = JJ + F:IK = K+G 
190 NEXT M: NEXT N 
200 GET R$ 

210 GoTo 75 

1000 DATA 9,0,6,0,- 
1h,01,0,3,0,2,0,73,76, 
1010 DATA 12,0,0,0, 
0 =),-1,71,75,0,5,0, 
e Eme TD, 

1020 DATA 8,6 
h,0,4,1,1,4,0 

7. 


N=-1) 8X + 
(T8) = 64,1,2) 

2 TO NC ASC (TB) - 

ASC 


(TS) <= 04), 


ASC (TS) - 64), 


+ K 


5,4,-1,4,0 
( 

6,5,0,1,- 
L,71,0,m il 
E Ra ho dr 
l,- 


] =4,0,"4 
ua | 
0,0,6,4,0,2,"2, 
() 


1030 DATA 

0O,=2,-2,72,74 
1040 DATA 7 
=6,0,0,-3,5,0 


Q, 
Õ 
6 :=-6,0,0,6,6,0, 


DATA -“6,0,0,3, 
8,0,-5,0,0,3 
1060 DATA 

1,1,0,4,1,1,4,0,1, 


1050 7,0,0,6,0, 


-4,0,- 
-=1,0 


LO, 7, 1,=Ã;cd 
- 10,=] ' 


1070 DATA 6,0,0,0,6,0,-3,6,0, 

0,3,0,76 

1080 DATA 6,0,0,6,0,-3,0,0,6, 

-=3,0,6,0 

1090 DATA 7,0,0,6,0,-3,0,0,5, 

a RP Ra Pa ci | 

1100 DATA 6,0,0,0,6,0,-3,6,3, 

-8,=3,6,"3 

1110 DATA 3,0,0,0,6,6,0 

1120 DATA 5,0,6,0,7-6,3,3,3,73 
0,6 

1130 DATA 4,0,6,0,-6,6,6,0,-6 
1140 DATA 9,1,0,-1,1,0,4,h,d, 

4,0,1,71,0,74,71,71,74.,0 

11580 DATA 7,0,6,0,-6,5,0,14,4, 
Onh,=1,14,75,0 

1160 DATA 11,5,0,-4,0,-1,1,0, 

4,1,1,4,0,),0),2,7),251,0,74,7 
RP À 

1170 DATA 9,0,6,0,-6,5,0,1,14, 

O,L,=)L.l+s 5,0,4,0,2,3 

1180 DATA 12,6,1,-1,-1,-4,0,- 

1,1,0,1.1,1,4,0,1,1,0,1,74,d,74 
rm = -1 

1190 DATA 4,3,6,0,-6,-3,0,6,0 
1200 DATA 6,0,0,0,5,1,1,4,0,1 
=L, 0,05 

1210 DATA 3,0,0,9,6, 4. = 6 

1220 DATA 5,0,0,1,6,2,-3,2,3, 

1,-6 

1230 DATA 5,0,0,6,6,-3,-3,73, 


3,6,76 
1240 DATA $,3,6,0,73,.703,.03,5, 
E o a 
1250 DATA 4,0,0,6,0,-6,6,6,0 


Os programas aqui apresentados pa- 
ra as diferentes linhas de microcompu- 
tadores são muito semelhantes entre si. 
Em todos eles vamos encontrar 26 de- 
clarações DATA, uma para cada letra 
do alfabeto. Essas declarações contêm 
uma série de números que dizem ao 
computador como desenhar a letra, uti- 
lizando pequenas linhas. 

O primeiro número da lista dá o to- 
tal de linhas que entram na composição 
de cada letra — um L, por exemplo, re- 
quer menos linhas que um S. O número 
máximo usado é doze. 

Os números seguintes são arranjados 
em pares, dando as coordenadas x e y 
de cada pequena seção da linha. Como 
já foi dito, tais números são relativos; 
assim, as linhas que serão efetivamente 
desenhadas dependem de fatores de es- 
cala. O primeiro par de números espe- 
cifica o ponto de início da letra dentro 
de nossa caixa imaginária. 

Os números contidos nas instruções 
DATA do programa são lidos para duas 
matrizes, Ne A. A é uma matriz tridi- 
mensional; de 26 (número de letras) por 
12 (número máximo de linhas) por 2 (ve- 
tores x € y). 












COMO ESCOLHER UM CORDÃO 


As linhas que permitem a entrada de 
palavras são semelhantes às do progra- 
ma do artigo Manchetes e Letreiros. 
Elas verificam a entrada para evitar um 
cordão nulo; não existe, neste caso, ne- 
nhum limite para o número de caracte- 
res utilizados. 

Em seguida, o programa pede dois 
valores — um fator X e um fator Y. Es- 
ses valores determinam as reais dimen- 
sões de cada letra. Grosso modo, a es- 
cala 1 representa o tamanho padrão do 
caractere; 2 fornece altura ou largura 
dupla, enquanto 0.5, por sua vez, ofe- 
rece metade do tamanho. Para valores 
menores que a unidade, podem-se ob- 
ter efeitos estranhos. Uma vez que o 
computador não pode traçar uma fra- 
ção de pixel, ele é obrigado a desenhar 
o pixel todo. Letras com um maior nú- 
mero de linhas apresentam mais facili- 
dade para que isso ocorra. Desse modo, 
um S, por exemplo, pode terminar 
maior quando comparado com um T, 

Se atribuirmos diferentes valores para 
cada fator, poderemos produzir interes- 
santes variações nos caracteres, criando 
assim letras altas e magras, baixas e gor- 
das etc. 

Como não existe limite para o tama- 
nho do cordão, é necessário tomar to- 
do o cuidado no sentido de que o nú- 
mero de letras não ultrapasse as dimen- 
sões da tela. Quando isso ocorre, o com- 
putador emite uma mensagem de erro. 

O cálculo de quantos caracteres ca- 
bem na tela para cada fator de escala é 
relativamente simples. Note que o valor 
importante é o fator X, que determina 
a largura da letra. Se você tiver um fa- 
tor X igual a 2, só poderá colocar a me- 
tade do que seria possível com o fator 
|. Com um fator 4, caberá apenas 1/4 
dos caracteres. 


| ANALISE O CORDÃO | 


Ássim como os outros programas que 
criavam letras, este usa um laço para ve- 
rificar cada caractere do cordão. No 
Spectrum ele começa na linha 130; no 
TRS-Color, na linha 110. 

O programa continua de maneira si- 
milar ao gerador de caracteres anterior, 
montando um cordão T$ exatamente 
igual ao cordão original. Ao mesmo 
tempo, ele verifica se o caractere é uma 
letra de A a Z; qualquer outro caracte- 
re é tratado como se fosse um espaço. 
Se não for, o computador executará um 
NEXT para fazer avançar o laço 
FOR...NEXT. Se não houver mais le- 


tras, O programa voltará para que você 
possa dar entrada a mais palavras. 





A ROTINA DE DESENHO 


Quando o computador encontra uma 
letra no cordão, vai para a linha 150 (no 
Spectrum), que dá início à rotina de de- 
senho. Nos outros computadores ela es- 
tá na linha 170. O conteúdo dessa linha, 
porém, difere de computador para com- 
putador, pois cada um deles tem um ta- 
manho diferente de tela e conta com co- 
mandos distintos para desenhar em al- 
ta resolução. 

A base para a rotina, entretanto, é a 
mesma para todos os micros. A variá- 
vel de controle para o laço 
FOR...NEXT, N, é usada como um 
guia para a coordenada x da posição ini- 
cial; a ela são adicionados dois valores 
pelo computador. O primeiro é um va- 
lor relativo — a coordenada para dese- 
nho da matriz À —, enquanto o segun- 
do é um valor que leva em conta o ta- 
manho da tela e os fatores de escala. 

Você já viu que um dos três elemen- 
tos dessa matriz é usado para separar os 
detalhes das coordenadas x e y. Os ou- 
tros dois elementos formam cada uma 
das 26 letras do alfabeto com até 24 nú- 
meros (lembre-se de que doze é o núme- 
ro máximo de linhas usadas por letra). 
A matriz N diz ao computador quantas 
linhas devem ser empregadas na defini- 
ção de cada letra. Assim, quando o 
computador vai desenhar o caractere A, 
por exemplo, ele verifica inicialmente 
quantas linhas devem ser traçadas na 
matriz N. Esse número controla o laço 
para desenhar a quantidade exata de li- 
nhas de cada letra. 

Os valores dos números contidos em 
A, a matriz principal do programa (tri- 
dimensional), equivalem ao código de 
caractere de cada letra menos 64 — es- 
ta é a razão pela qual as linhas 130 a 180 
contêm expressões como ASC(T$)-64 ou 
CODE T$-64 ou A-64. Isso significa que 
o computador pode tomar o código de 
uma letra e usá-lo para contar linhas de 
desenho. Os valores relativos para x e 
y guardados na matriz são então multi- 
plicados pelo fator de escala que você 
escolheu e passados para os comandos 
de desenho. 

Assim que acaba de desenhar uma le- 
tra, o computador passa para a seguin- 
te (caso haja) no cordão e o processo 
continua. Se as letras acabarem, o com- 
putador volta para a linha 80 (no Spec- 
trum) ou 100 (nos outros micros) para 
que se possa entrar um novo cordão. Os 
microcomputadores das linhas TR-Color 
e MSX esperam que você tecle alguma 





Eis aqui as três versões para novas 
letras no Spectrum. 


coisa antes, visto que a tela de alta re- 
solução tem que ser apagada para dar 
lugar à tela de texto. 





DESENHE SUAS PRÓPRIAS LETRAS 


Você já viu três exemplos de tipos de 
letra. Inspirando-se neles, crie à vonta- 
de seus próprios caracteres. Os caracte- 
res da ROM só podem ser expandidos, 
mas nada impede que as rotinas expan- 
soras sejam utilizadas para trabalhar 
com seus caracteres redefinidos — uma 
explicação de como isso pode ser feito 
foi dada anteriormente no artigo Con- 
junto de Blocos Gráficos (1), à página 
526. 

As variações com os outros dois mé- 
todos são praticamente infinitas: você 
pode desenhar seus próprios caracteres 
a partir de blocos gráficos e guardá-los 
em uma matriz, como no programa do 
artigo Manchetes e Letreiros. Se não es- 
tiver satisfeito com o resultado, tente re- 
desenhar tudo. Outra opção consiste em 
alterar a aparência das letras deste arti- 
go, modificando os valores das linhas 
DATA, 





USE OS NOVOS CARACTERES 


Não é difícil criar letras maiores pa- 
ra serem mostradas na tela; mas, a não 
ser que se possa usá-las em algum pro- 
grama, não há grande vantagem em se 
fazer isso. Se você optar pelas letras cria- 
das neste programa ou no anterior, pro- 
cure empregá-las em seus próprios pro- 
gramas. 

Isso pode ser feito de várias manei- 
ras. À mais comum incorpora o progra- 
ma gerador de letras como uma sub-ro- 
tina do seu programa e chama-o sempre 
que for necessário. 

Se você quiser usar o expansor de ca- 
racteres, essa será provavelmente a me- 
lhor solução. Mas, para o programa 












Alterando-se os fatores X e Y, as letras 
podem ser traçadas em qualquer tamanho. 


atual, ela está longe de ser razoável, uma 
vez que o programa toma muito espaço 
da memória e pouco sobra para seu pró- 
prio programa. 

Como você verá em seguida, esse 
problema pode ser resolvido de várias 
maneiras: todas elas utilizam o progra- 
ma para desenhar as letras, que são ar- 
mazenadas de modo a estar disponíveis 
para uso posterior. 





ARMAZENAGEM DOS DESENHOS | 


Uma dessas maneiras consiste em ar- 
mazenar seus desenhos em gráficos 
UDG. Isso é fácil de fazer no TRS- 
Color, já que este possui o comando 
GET, que guarda o que está na tela. 
Embora com maiores dificuldades, o 
mesmo efeito pode ser obtido, em ou- 
tros computadores, por meio do coman- 
do POKE. 

É possível ainda gravar a parte da 
memória que contém os gráficos, como 
um bloco de código de máquina. Mais 
tarde, pode-se carregar toda a tela de 
volta para a memória. Entretanto, en- 
quanto ela estiver na memória do micro, 
é preciso protegê-la, colocando-a acima 
ou abaixo do BASIC (para maiores de- 
talhes, veja o artigo da página 526). 
Uma vez na memória, ela está em con- 
dições de ser utilizada. 

A melhor maneira de fazer isso é es- 
crever uma rotina para ler o código da 
área protegida da RAM e passá-lo para 
a área de tela; ou, ainda, alterar o apon- 
tador do conjunto de caracteres, de mo- 
do que seu código se transforme em vá- 
rios caracteres que poderão ser impres- 
sos. À rotina para mover o bloco de có- 
digo da RAM para a área de tela seria 
algo como: 


1000 FOR X=1 TO (COMPRIMENTO DO 
BLOCO DE CODIGO) 

1010 POKE (ENDERECO DE INTCIO D 
A MEMORIA DE TELA)+X, PEEK (ENDE 
RECO DE INICIO DO BLOCO DE CODI 
GO) +X 

1020 NEXT X 


As telas mostram os tamanhos normal, 
extra-largo e extra-alto. 


Esta, porém, não é a melhor solução 
para o problema, uma vez que levaria 
longo tempo para ser concluída. A difi- 
culdade, felizmente, pode ser contorna- 
da por meio de uma rotina em lingua- 
gem de máquina que se encarregue de 
executar esse trabalho. 





COMO GRAVAR A TELA 


Uma solução alternativa consiste em 
gravar a tela e carregá-la juntamente 
com o programa. Nesse caso, o desenho 
permaneceria na tela até que você se de- 
cidisse a apagá-lo. Na maioria dos mi- 
crocomputadores, esta constitui, sem 
dúvida, a melhor opção. 


= | 


O Spectrum tem um comando espe- 
cial que permite gravar em fita uma te- 
la gráfica com grande facilidade. O de- 
senho é gravado como um bloco de me- 
mória — processo descrito nas páginas 
574 e 575; neste caso, porém, não é ne- 
cessário especificar o endereço inicial e 
o tamanho do bloco. Basta usar 
SCREENS logo após o nome de arqui- 
vo. Digitado no modo direto, esse co- 
mando grava uma figura com o nome 
SEE 
SAVE "pic” SCREENS 
Para carregar a figura: 

LOAD "” SCREENS 


Pode-se, por exemplo, usar a tela co- 
mo título para um jogo. Carrega-se pri- 
meiro a tela e a seguir o programa. As- 
sim, ela ficará visível enquanto o pro- 
grama estiver sendo carregado: 


10 LOAD "” SCREENS 
20 LOAD "JOGO" 


Grave agora com o comando: 
SAVE "CARREG” LINEIO 


de modo que ele será executado automa- 
ticamente. O jogo será gravado com 


LITE 


O BASIC é muito lento e eu não 
gosto de programar em código de 
máquina. Tenho outras opções? 

Existe uma família de linguagens 
que, digamos, estão “a meio cami- | 
nho”. Elas são compiladas, e não inter- 
pretadas. Como vimos anteriormente, 
o que toma tempo no BASIC é a inter- 
pretação de cada comando toda vez 
que o programa é rodado. 

As linguagens compiladas usam um | 
outro tipo de programa — parecido 
| com os Assembler empregados na pro- | 
gramação em código de máquina — 
que converte a linguagem de alto nível 
para código de máquina. Assim, depois 
| da compilação, estaremos rodando um 
programa em código de máquina, e não 
em linguagem de alto nível. 


SAVE 


de modo que ele será executado automa- 
ticamente também. E importante lem- 
brar que os programas têm que ser gra- 
vados na ordem correta na fita. 


"JOGO” LINEIO 


Para gravar uma tela em fita, utilize 
o comando: 


CSAVEM"nomearquivo”,1536,7679, 
35725 

Os primeiros dois números são os en- 
dereços inicial e final da área de gráfi- 
cos (página | de qualquer PMODE, a 
não ser que se tenha um drive). 
CLOADM serve para carregar a figura 
de volta para a memória. 

Essa tela gravada pode ser usada co- 
mo uma página-título para um jogo; pa- 
ra isso, é preciso adicionar uma rotina 
de carregamento no início: 


1 PMODE1,1:PCLS:SCREEN1,O 
2 CLOADM 


3 FOR D=1 TO 1000:NEXT 


e certificar-se de que a figura será gra- 
vada logo após o jogo. Isso funcionará 
enquanto o programa não reduzir o nú- 
mero de páginas gráficas disponíveis ini- 
cialmente (neste caso, a figura poderia 
sobrepor-se ao programa). 


























CANETAS 
ÓPTICAS 


Comunicar-se com um computador 
geralmente significa recorrer ao teclado 
para digitar informações. Esta, porém, 
não é a única forma de comunicação 
com a máquina. Além dela, existe uma 
série de métodos alternativos. Provavel- 
mente, O primeiro lugar dessa série per- 
tence ao joystick, que pode ser usado 
tanto em jogos como em aplicações mais 
“sérias”, Outro método igualmente ba- 
rato e que apresenta nítida vantagem é 
o da caneta óptica. 

As canetas Ópticas, como o próprio 
nome sugere, têm grande semelhança 
com uma caneta comum, pois funcio- 
nam com base em movimentos de ''de- 
senhar'" ou de apontar para coisas so- 
bre a tela, Como são capazes de detec- 
tar o ponto da tela para o qual estão sen- 
do apontadas, elas têm uma enorme sé- 
rie de aplicações potenciais, como, por 
exemplo, selecionar itens de um menu 
mostrado na tela e acionar as funções 
de um programa. Caso fosse utilizar o 
teclado em situações como essas, O usuá- 
rio seria obrigado a afastar os olhos da 
tela e pressionar uma ou mais teclas. 
Com uma caneta Óptica, porém, tudo fi- 
ca bem mais rápido e simples: basta 
apontar para a opção. 


APLICAÇÕES 





As canetas ópticas são particularmen- 
te apropriadas para aquelas aplicações 
em que o usuário precisa localizar rapi- 
damente pontos espalhados pela tela, 
como quando deseja entrar as coorde- 
nadas de um ou mais pontos, colocar 
uma marca, desenhar uma reta, selecio- 
nar um menu etc. 

Precisas, rápidas e de fácil manipu- 
lação, as canetas Ópticas se prestam mui- 
to bem a aplicações gráficas. Nesse ti- 
po de aplicação, o emprego das teclas 
para controle do cursor gráfico (ou, pior 
ainda, a utilização das teclas numéricas 
para entrar coordenadas) implicaria 
num lento e laborioso processo. Já com 
umia caneta óptica pode-se desenhar li- 
teralmente à mão livre: você traça ape- 
nas os contornos com a caneta, € O re- 
sultado aparece diretamente na tela. Ou- 
tra técnica consiste em compor um de- 
senho, usando a caneta para apontar pa- 


TB 





ra um menu com símbolos gráficos, co- 
res, sombreados etc. 

A caneta óptica mostra-se também de 
grande valia em programas de aplica- 
ções mais sérias, como processamento 
de textos, ou contabilidade (do tipo 
“você obtém o que vê"). Isso significa 
que, em vez de entrar instruções pelo te- 
clado, elas são entradas por intermédio 
de uma caneta Óptica que aponta para 
as opções disponíveis. 
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Espécie muito particular de ponteiro 
eletrônico, as canetas ópticas 
servem para fazer gráficos na tela e 
para selecionar itens de um 

menu. Veja como trabalhar com elas. 


Até recentemente, programas aplica- 
tivos que empregassem canetas ópticas 
eram desenvolvidos pelos próprios usuá- 
rios. Atualmente, com o crescente inte- 
resse por esses periféricos, algumas em- 
presas produtoras de software já estão 
oferecendo programas que usam espe- 
cificamente a caneta óptica. 

Alguns programas ''artísticos'' ou de 
projeto por computador possibilitam a 
criação de desenhos à base de figuras 
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geométricas (retas, círculos, elipses etc.), 
que podem ser preenchidas com cores. 
Muitos desses programas permitem tam- 
bém o uso de canetas Ópticas para dese- 
nhos à mão livre sobre a tela. Com eles 
é possível elaborar trabalhos complexos 
e criativos. 

Esse processo funciona da seguinte 
forma: um dos programas utiliza a ca- 
neta óptica para definir simbolos ou ca- 
racteres gráficos. Um segundo progra- 
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E UMA ALTERNATIVA 
PARA O TECLADO 

= O QUE SE PODE FAZER 
COM UMA CANETA ÓPTICA? 

[E COMO FUNCIONA 


ma aproveita esses símbolos em proje- 
tos mais complexos. Aqui, a caneta óp- 
tica oferece nítidas vantagens sobre ou- 
tros métodos de entrada gráfica e de se- 
leção de opções. 

Já é possível encontrar no mercado 
jogos que recorrem a canetas ópticas pa- 
ra que o jogador transporte figuras de 
um ponto para outro da tela. O xadrez 
e outros jogos de tabuleiro são bons 
exemplos desse emprego. 

Palavras cruzadas, jogos de cartas, 
labirintos e quebra-cabeças variados 
completam o quadro de atividades lú- 
dicas em que as canetas Ópticas têm fun- 
ções importantes. Essas funções são ex- 
tensivas a jogos de aventuras, em que O 
jogador pode apontar para os objetos 
que deseja apanhar ou levar. 

As canetas Ópticas podem ainda as- 
sumir formas especiais, como o rifle óp- 
tico que serve para centrar a mira em al- 
vos na tela. Esse rifle já existe tanto em 
micros domésticos quanto em certos vi- 
deogames. Está, portanto, especifica- 
mente voltado para jogos. 





COMO FUNCIONA A CANETA ÓPTICA 


Uma caneta óptica é usada basica- 
mente para detectar pontos luminosos 
presentes na tela por meio de um foto- 
detector. Quando ela é apontada para 
alguma locação na tela, ocorre um tra- 
balho conjunto entre os circuitos eletrô- 
nicos de detecção na caneta e o softwa- 
re carregado no computador; o objeti- 
vo desse trabalho é calcular as coorde- 
nadas do ponto para o qual a caneta es- 
tá sendo apontada. 

Uma das técnicas desse processo ba- 
seia-se no modo como a imagem é pro- 
duzida em um cinescópio, tubo de TV 
ou monitor. O feixe de elétrons que 
bombardeia a tela é movimentado de 
forma a deslocar um pequeno ponto de 
luz sobre ela em um padrão que vai da 
esquerda para a direita e de cima para 
baixo. Esse padrão tem cerca de seiscen- 
tas linhas de varredura, repetidas a ca- 
da 1/60 de segundo. Como a varredura 
é muito rápida, o olho humano percebe 
apenas uma imagem estável. 

A caneta óptica tem na ponta um mi- 
núsculo sensor fotoelétrico (normalmen- 
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DO SENSIBILIDADE 
- RESOLUÇÃO ALTA OU BAIXA? 
ESCOLHA UMA CANETA ÓPTICA 
COMPATIBILIDADE 


OUTROS PROBLEMAS 
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te, um diodo ou transistor sensivel à luz) 
que detecta o pontinho de luz quando 
este passa em seu foco. Um sinal elétri- 
co é então produzido, amplificado e 
transmitido para o computador. Este, 
por sua vez, é que controla o movimen- 
to de varredura e, por isso, consegue cal- 
cular as coordenadas do ponto, com ba- 
se no tempo que o feixe de elétrons leva 
para partir do topo e chegar ao ponto 
de detecção. 

As canetas ópticas variam segundo o 
tipo de sensor luminoso empregado, on- 
de ele é colocado e onde se localizam os 
circuitos eletrônicos associados; ou, ain- 
da, conforme permitam ou não diferen- 
tes modos operacionais. Até mesmo a 
maneira pela qual mostram que o sinal 
foi detectado serve para diferenciar os 
vários tipos de caneta óptica. Finalmen- 
te, como não poderia deixar de ser, elas 
são classificadas de acordo com o mo- 
delo de computador com o qual são 
compatíveis. 

Todos esses fatores afetam o preço 
e o desempenho da caneta óptica, bem 
como suas caracteristicas operacionais. 
Dentre estas, as principais são a sensi- 
bilidade e a resolução. 


SENSIBILIDADE 


A sensibilidade de uma caneta ópti- 
ca revela a gama de intensidades lumi- 
nosas que ela é capaz de detectar na te- 
la. As melhores canetas captam todas ou 
quase todas as cores exibidas. As de 
qualidade inferior detectam apenas as 
cores mais brilhantes ou as intensidades 
mais fortes. Para muitas aplicações, is- 
so será mais do que suficiente, embora 
imponha uma severa limitaçãa na flexi- 
bilidade de uso, particularmente em 
aplicações gráficas, onde o fundo é nor- 
malmente escuro, 

Um problema frequente com as ca- 
netas ópticas é a chamada detecção es- 
púria. Esta ocorre quando a sensibilida- 
de é muito aumentada pela excessiva 
amplificação do sinal proveniente do 
sensor de luminosidade. Esse aumento 
amplia a probabilidade de a caneta óp- 
tica ser ativada por outras fontes de luz, 
tais como reflexos na tela ou a própria 
luz ambiente. 








Para enfrentar esse problema, as ca- 
netas ópticas são equipadas com meca- 
nismos destinados a impedir a ocorrên- 
cia de detecções espúrias. Esses meca- 
nismos podem ser constituídos, por 
exemplo, de células fotoelétricas e filtros 
de luz em proporções tais que se com- 
binem com as características de cor do 
ponto na tela. Além disso, podem ser 
usados filtros eletrônicos para assegurar 
que a luz provenha realmente da tela (e 
não de uma fonte externa). Isso é pos- 
sível porque os pontos na tela oscilam 
com uma freqiiência caracteristica (ses- 
senta vezes por segundo). Assim, um cir- 
cuito eletrônico simples (chamado “*fil- 
tro passa-alto"”) é usado para selecionar 
apenas a luz que pisca com essa fre- 
quência. 


| CANETAS DEALTA RESOLUÇÃO | 


Uma vez que os problemas da sensi- 
bilidade e da detecção espúria tenham 
sido tecnicamente resolvidos, uma im- 
portante consideração adicional a fazer 
pode ser a resolução. Esta diz respeito 
à área mínima na tela que a caneta é ca- 
paz de detectar, que varia desde um úni- 
co pixel na tela, nas melhores canetas 
ópticas, até um grupo inteiro de carac- 
teres, nas piores. 

A resolução de uma caneta depende 
do sensor que ela usa, da velocidade de 
reação e do método de colimação, ou de 
coleção da luz. Algumas canetas ópti- 
cas utilizam um tubo negro opaco para 
canalizar a luz até o sensor; outras em- 
pregam um sistema de lentes, ou peda- 
cos curtos de fibra óptica. A alfa reso- 
lução é importante se se quer desenhar 
com a pena, e não somente detectar po- 
sições. Uma caneta óptica com uma boa 
colimação conseguirá discriminar um 
ponto menor, e, consequentemente, se- 
rá mais acurada. 

Os modelos de canetas ópticas dife- 
rem quanto à quantidade e qualidade da 
documentação e do software que as 
acompanham. Para funcionarem a con- 
tento, elas devem contar com um bom 
suporte por parte de rotinas de softwa- 
re. À programação é razoavelmente sim- 
ples, qualquer que seja o tipo de caneta 
ou de computador ao qual ela está liga- 
da. Alguns fabricantes adicionam uma 
fita cassete ou disco com alguns progra- 
mas de exemplo, enquanto outros ape- 
nas fornecem listagens de rotinas. 


COMO ESCOLHER UMA CANETA ÓPTICA 


Há vários fatores a considerar na ho- 
ra de se escolher uma caneta óptica. Por 


exemplo, a precisão da caneta. Embora 
algumas canetas tenham uma alta reso- 
lução nominal, isso não quer dizer que 
elas sejam capazes de conservar a pre- 
cisão por muito tempo. Algumas cane- 
tas ópticas são tão imprecisas que uma 
reta traçada com elas sobre o vídeo apa- 
recerá como uma série aleatória de pon- 
tos acesos e apagados. 









AR A a 1 


Geralmente, o preço desse periférico 
é proporcional à qualidade. Alguns dos 
mais caros, por exemplo, têm dois dis- 
positivos de que não falamos ainda: o 
primeiro serve para anunciar que a ca- 
neta detectou um ponto de luz válido na 
tela; o segundo controla o sinal a ser en- 
viado ao computador. 

Um diodo emissor de luz (LED) é um 





equipamento usado em algumas canetas 
para indicar se houve detecção correta: 
ele não é essencial para desenhar, mas 
pode ser útil quando se usa a caneta pa- 
ra escolher opções na tela ou detectar 
posições. 

O controle do sinal é normalmente 
exercido por um botão ou um interrup- 
tor, situado quase sempre no corpo da 


caneta, ao qual o usuário recorre quan- 
do quer enviar a informação ao compu- 
tador. Ele pode ser acionado com duas 
finalidades: para reduzir a chance de de- 
tecções falsas ou espúrias, e para ter 
mais controle sobre que leituras devem 
ser feitas pela caneta. 

Existem vários tipos de interruptores: 
nos modelos mais sofisticados, eles po- 





dem tomar a forma de um pequeno con- 
tato na ponta da caneta, de tal maneira 
que esta será ativada assim que for en- 
costada na tela. 


COMPATIBILIDADE | 


Antes de comprar uma caneta ópti- 
ca, convém testar se ela funcionará com 
o seu tipo de computador. Como acon- 
tece com muitos outros periféricos, as 
canetas ópticas costumam funcionar 
apenas quando ligadas ao computador 
para o qual foram feitas. 

Algumas vezes, você poderá resolver 
esse problema adquirindo uma interfa- 
ce especial para o seu computador. 

Não se esqueça de que esse periféri- 
co precisa de software para funcionar: 
se você comprar uma caneta óptica que 
não sirva especificamente para o seu mi- 
cro, provavelmente passará por maus 
momentos, tentando descobrir como ela 
funciona, 


PROBLEMAS COM CANETAS ÓPTICAS 


A limpeza é um item essencial para 
a manutenção das canetas ópticas. Co- 
mo elas trabalham com luz em intensi- 
dades muito baixas, qualquer sujeira na 
ponta da caneta ou na tela tende a in- 
terferir no sinal luminoso detectado. Pa- 
ra evitar esse tipo de problema, limpe re- 
gularmente a caneta de seu mjcro com 
um produto de limpeza semelhante ao 
usado para gravadores. : 
q Outro problema peculiar das canetas 
dbticas é que a sua proximidade tende 
a obscurecer uma parte da tela. Esse in- 
conveniente, porém, só se tornará real- 
mente grave se a tela estiver coberta de 
informações. 

Antes de comprar uma caneta ópti- 
ca, assegure-se de que nenhum outro pe- 
riférico — como joysticks e tabletes di- 
gitalizadores — é mais apropriado para 
o que pretende fazer. Não se esqueça de 
que usar uma caneta óptica por longo 
tempo pode ser muito desconfortável, 
devido à posição vertical forçada em que 
ela deve ser mantida. 

O mercado de micros tem se caracte- 
rizado por um forte crescimento no em- 
prego de aplicações em que o usuário de- 
ve interagir com a tela. Essa tendência 
provocará certamente a disseminação 
das canetas ópticas. Com isso, seu pre- 
ço tenderá a baixar, e os programas ca- 
pazes de utilizá-las se multiplicarão. Pa- 
ra o usuário que está procurando um 
acessório barato e diferente para o seu 
micro, a caneta óptica pode ser, assim, 
a aquisição ideal. 








ACELERE | 
SEUS PROGRAMAS 










CRONOMETRAGEM DO BASIC 500 RE 








| 





| 
| 
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| 


rir 


10 REM <USE UM CRONOMETRO 


20 REM PARA MEDIR O TEMPO> 
100 HOME 

110 PRINT CHRS$ (7) 

120 PRINT : PRINT "INICIO" 
130 FOR K = 1 TO S500 

140 GOSUB 200 

150 NEXT 

160 PRINT CHRS$S (7) 

170 PRINT : PRINT “FIM” 
180 END 

200 REM 


1000 RETURN 


100 TIMER=O 

110 FOR K=1 TO 600:GOSUB 200:NE 
XT 

120 T=TIMER-170 

130 CLS:PRINT” TEMPO USADO = "; 
7/60; " SEGUNDOS” 

140 END 

200 REM 

1000 RETURN 


Em todos os programas, o comando 
REM da linha 200 será substituído, mais 
tarde, pelo nosso teste. No programa do 
Spectrum, esse comando aparece tam- 


bém na linha 100, devendo ali perma- 
necer, já que faz parte da calibração do 
temporizador interno. 


ESTRUTURA 





Como a estruturação do programa 
desempenha um papel fundamental na 
velocidade de sua execução, convém re- 
capitular aqui algumas regras básicas. 

Todas as sub-rotinas usadas com 
mais frequência devem ser posicionadas 
no início do programa, já que o inter- 
pretador procura cada linha requisita- 
da por um GOSUB a partir do começo 
da listagem. Assim, quanto menor for 
o número da linha de uma sub-rotina, 
mais depressa ela será encontrada pelo 
interpretador. Você pode argumentar 
que um atraso de milissegundos não al- 
tera nada no programa, Mas a econo- 
mia de alguns milissegundos aqui e ali 
acabará fazendo uma boa diferença. 

Existem programas mal elaborados, 
que não passam de um emaranhado de 
comandos GOTO usados indiscrimina- 
damente. Esse tipo de programa — às ve- 
zes chamado de “programa-espaguete” 










MEMORIA E VELOCIDADE 
da 
Comumente, os programas mais cur- 
tos são também os mais rápidos. Porém, 
os três objetivos do programador — ve- 
locidade, clareza e economia de memó- 
ria — quase sempre estão em conflito. 
O uso de vários comandos numa só li- 
nha, por exemplo, économiza memória 
e acelera o programa, mas dificulta sua 
compreensão e eventuais correções. 
Um programa que trabalha com ve- 
locidade máxima geralmente é mais lon- 
go e utiliza mais memória. A maioria 
das técnicas para se economizar memó- 
ria traz prejuízo para a velocidade. É o 
caso do emprego de sub-rotinas, 

















| GOTO 100 


Use variáveis no lugar de números. 


Use laços FOR. 


| vez de variáveis de ponto flutuante. 


' de cada programa. 


DICAS PARA ACELERAR SEU BASIC 


Sr bo CURILA 
DIRIA 

na 

ae Lelo] ay 


Defina as matrizes no início 





Se possível, use variáveis inteiras em 


Nos laços FOR...NEXT, não coloque uma 
variável depois do NEXT. 








Dê nomes curtos às variáveis. 


Coloque as sub-rotinas de uso mais 
frequente no começo do programa. 


—1—| TIP 


. NEXT no lugar 
de laços do tipo: 
100 LET X=X+1 : IF X<20 THEN = ES nad ISIS 
depli as ipi com fdp 
mais baixos. Comece na linha 10 em vez me | 
j | — TICICIA 
ES ESneláiShy 


de começar na linha 1000. 


Use rotinas em código de máquina 
sempre que for possível. Torne-se um 
colecionador de sub-rotinas publicadas. 





Nos programas voltados para cálculos, 
procure definir uma função que execute 
os cálculos repetitivos. Por exemplo: 


[10 DEF EN A(X)=X- (INT (X/360)* 


| possível. 


| Remova todos os espaços em branco e 


360) 
20 LET NUMERO=EN A (NUMERO) 

é bem meinor que: 

10 IF NUMERO>360 THEN LET NUMER E, 
O=NUMERO-360: GOTO 10 


Habitue-se a planejar seus programas. 
Além de erros, você evitará comandos 
GOTO e GOSUB desnecessários, que só 
comprometem a velocidade de execução. 





ES Sans) y 
ES ESEaCd S)sY 





Sub-rotinas economizam memória 
mas diminuem a rapidez do programa. 





Remova todos os denominadores 
comuns. Por exemplo, troque: 


10 LET X=Y/100+Z/100 


| por 


ES Sady 
5S5SudemN 
ES Sad Ss 
S Sud ss 
= [TER 


10 LET X= (Y+Z)/100 


Evite usar comandos GOTO sempre que 





' Procure utilizar vários comandos n: na 
| mesma linha. Perde-se em clareza, 


mas ganha-se em velocidade e economia, 





comandos REM desnecessários. 





Ao usar um IF... THEN, coloque primeiro 
a condição que mais tende a ser FALSA. 











Elas asseguram uma razoável econo- 
mia de memória mas chamá-las toma 
tempo, o que não agrada aos programa- 
dores que buscam velocidade de execu- 
ção. Como vimos anteriormente, O uso 
de sub-rotinas exige certo cuidado com 
a estruturação do programa. Sem isso, 
é impossível recuperar a velocidade que 
se perde ao chamá-las. 

Uma linha como LET A = VAL'“100” 
exemplifica bem a contradição que exis- 
te entre velocidade e economia de me- 
mória. Essa forma economiza memória, 
sem dúvida, mas, por outro lado, é de 
lenta execução se for comparada à for- 
ma mais comum LET A = 100. 


VARIAVEIS ima 


Saber como as variáveis são armaze- 
nadas na memória pode ser de grande 
utilidade para quem pretende acelerar a 
execução de programas. As variáveis são 
criadas à medida que aparecem no pro- 
gama, sendo possível limpar a região em 
que se situam por meio dos comandos 
RUN ou CLEAR. Na maioria dos ca- 
sos, uma nova variável provoca a am- 
pliação dessa região para cima — o que 
não se aplica ao Sinclair Spectrum, que 
trabalha com as variáveis de uma ma- 
neira diferente. 

Se criarmos, por exemplo, uma va- 
riável-cadeia e, depois, uma matriz nu- 
mérica, todas as variáveis que se segui- 
rem à matriz precisarão ser deslocadas 
para a parte superior da memória quan- 
do se acrescentar algo à cadeia. 

Observe este programa: 


100 LET Tg="" 
110 DIM A(1000) 
120 LET T$=T$S+"ACELERAR” 


No BASIC da maioria dos micros, 
muito tempo de execução seria econo- 
mizado se invertêssemos a ordem das 
duas primeiras linhas, ou seja, se a ma- 
triz fosse dimensionada antes de se de- 
finir a cadeia. Como está, o programa 
faz com que 5000 bytes sejam desloca- 
dos cada vez que se adiciona a palavra 
“ACELERAR” à variável-cadeia TS. 
Os usuários do Spectrum não precisam 
se preocupar, pois, como foi dito, esse 
micro trabalha com as variáveis de uma 
maneira diferente, não apresentando es- 
se tipo de problema. 

O uso de variável no lugar de núme- 
ros também assegura uma considerável 
economia de tempo. Essa regra aplica- 
se a todos os micros, menos ao Spec- 
trum. No Apple, por exemplo, cada va- 
riável economiza cerca de cinco a dez 
milissegundos. Pode não parecer muito, 
mas imagine o que isso significa quan- 














do se lida com um laço que é executado 
várias vezes. Já no Spectrum ocorre o 
oposto: a execução de um comando 
LET € = 10 + 10 leva três milissegun- 
dos, enquanto a de LET C = D+ D 
(onde D = 10) leva 4,2 milissegundos. 


FUNÇÕES MATEMÁTICAS 





Use a rotina apresentada anterior- 
mente — que passaremos a chamar 
“cronômetro” — para testar estas duas 
formas de se obter a função potência. 


200 LET C=4*4%4%4 
ou, então: 
200 LET C=4"4 


É de se esperar que a função potên- 
cia própria da máquina seja a mais rá- 
pida das duas. No Spectrum, por exem- 
plo, a primeira forma leva seis milisse- 
gundos, e a segunda, 114 milissegundos. 
Estamos novamente diante de um caso 
em que a economia de memória (ofere- 
cida pela segunda forma) está em con- 
flito com a velocidade. 

Algumas vezes, lembramos que, no 
Spectrum, linhas do tipo 


210 IF X>Y THEN LET Y=Y+1 
220 IF XK<Y THEN LET Y=Y-1 


são executadas com maior velocidade 
quando substituídas por 
10 LET Y = Y + (XY) - (X<Y) 

O BASIC da linha Sinclair realmen- 
te permite esse tipo de comparação e 
programar assim é, sem dúvida, mais 
elegante. Mas, usando nossa rotina-cro- 
nômetro, podemos observar que a linha 
dupla é mais rápida que a simples. 

Se você usa outro micro, teste o equi- 
valente em sua máquina. 


Tur 


210 IF X>Y THEN Y=T+1 
220 IF X<Y THEN Y=Y-1 


ou 
210 Y=T+(X<Y)-(X2Y) 


Forneça, em cada caso, valores cabíi- 
veis para X e Y. 


MULTIPLICAÇÃO E DIVISÃO 





As expressões € = D*0.5 e C=D/2 
executam exatamente o mesmo cálculo, 
mas, como mostram os testes, a multi- 
plicação é mais rápida que a divisão. 

Faça um teste com as sugestões apre- 
sentadas a seguir e tome nota dos resul- 
tados para referências futuras. 


200 LET C=10+10 
200 LET C=D+D 
200 LET €C=10*10 
200 LET C=10/10 
200 LET C=10+PI 
200 LET C=SIN 10 

200 LET C=COS 10 

200 LET C=TAN 10 

200 LET C=VAL "10º 

200 LET C=10 

200 LET C=D (ONDE D=10) 

200 PRINT AT 21,0;" TESTE” 

200 PRINT AT 21,0;A3 (AS=TESTE) 
200 PRINT AT 21,0; 10+1000+500+ 
5.5 

200 PRINT AT 21,0;D+E+F+G (ON- 

DE D=10,E+1000, ETC) 


yu 


200 C=10+10 
200 C=D+D 
200 C=10*10 
200 C=10/10 
200 €C=10+PI 
200 C=SIN(IO) 

200 €C=COS(10) 

200 C=TAN(1O) 

200 C=VAL("10”) 

200 C=10 

200 €C=D (onde D=10) 

200 PRINTºTESTE” 

200 PRINT AS (onde AS="TESTE”) 
200 PRINT 10+1000+500+5.5 

200 PRINT D+E+F+G (onde D=10,E 
=1000,etc) 
200 C=10+10 
200 €C=D+D 
200 C=10*10 
200 €C=10/10 
200 C=10+PI 
200 C=SIN(10) 

200 C=COS(10) 

200 C=TAN(10) 

200 C=VAL ("10") 

200 C=10 

C=D (ONDE D=10) 

200 PRINT"TESTE” 

PRINTAS (ONDE AS=" TESTE”) 
200 PRINT 10+1000+500+5.5 

PRINT D+E+F+G (ONDE D=10,E 
=1000, ETC) 


(ONDE D=10) 


(onde D=10) 


(ONDE D=10) 


200 C=10+10 
200 C=D+D 
200 C=10*10 
200 €C=10/10 
200 C=10+PI 
200 C=SIN(10) 

200 C=COS(10) 

200 C=TAN(1IO) 

200 C=VAL("1O”) 

200 C=10 

200 C=D (ONDE D=10) 

PRINT 6260," TESTE” 

200 PRINT €260,AS (AS=" TESTE”) 


(ONDE D=10) 


=10 Ê 


TE E E 


200 PRINT €260,10+1000+500+5.5 
200 PRINT 6260, D+E+E+G 
E=1000, 


(ONDE D 
ETC) 






ORDENAÇÃO E BUSCA 

Como as técnicas de ordenação já fo- 
ram tema de artigos anteriores, não en- 
traremos aqui em maiores detalhes. Co- 
mo vimos, a ordenação tipo Shell-Metz- 
ner é a mais indicada quando se trata de 
manipular um número de itens superior 
a cem. Esse tipo de ordenação tem a ca- 
racterística de ser tanto mais rápido 
quanto maior for o número de itens. Po- 
rém, como era de se esperar, também 
nesse caso a velocidade envolve certo sa- 
crifício de memória. 

Ao contrário do que muitos pensam, 
ordenação e busca não são a mesma coi- 
sa. Buscar é acessar um dado (ou um 
conjunto de dados) o mais rapidamen- 
te possível; ordenar é colocar vários da- 
dos em ordem. Suponhamos que você 
precise encontrar o telefone de certa pes- 
soa em uma lista armazenada no com- 
putador. Ora, não haveria vantagem ne- 
nhuma se o tempo gasto pelo computa- 
dor para encontrar tal número fosse 
maior que o tempo necessário para 
achá-lo numa lista telefônica. Por isso, 
quando se trata de ordenar ou buscar, 
sempre se procura o método mais 
rápido. 

A busca serial (listada a seguir) simu- 
la o procedimento de uma pessoa que 
procura determinado dado analisando 
item por item de uma lista. 

10 DATA "ANTILOPE”,"CACHORRO” 
|" ELEFANTE”, "GOLFINHO", " JUMEN 
TO” ,"LEOPARDO”", "MACACO", "PERI 
QUITO”, "RAPOSA", "SAPO" 

20 RESTORE 10: DIM BS(10,9) 

30 CLS : FOR i=l TO 10: READ 
BS(i): PRINT AT à,5;B$(i): 

NEXT à : 
40 POKE 23658,8: 
O animal ?7";AS 
50 FOR X=1 TO 10 
60 IF BS(X, TO LEN AS)=AS 
THEN PRINT FLASH O;AT X,13; 
"": FLASH 1;” ACHEI”: GOTO 40 
70 NEXT X 


10 REM <busca serial> 

20 DIM BS(10) 

30 CLS:FORI=1TOl10:READBS (I):LOC 
ATEO, I+3: PRINTBS (1) :NEXT 

40 LOCATEO,17:INPUT"Qual a anim 
al”";AS 

50 FORX=1TO1O 

60 IF BS(X)J=AS THEN LOCATE13,X+ 
3: PRINT"<< ACHEI" :X=10 

70 NEXT:GOTO40 


INPUT "Qual 








80 DATA ANTILOPE, CACHORRO, ELEFA 
NTE, GOLFINHO, JUMENTO, LEOPARDO,M 
ACACO, PERIQUITO, RAPOSA, SAPO 


Lá) ico] 
10 REM <BUSCA SERIAL> 
20 DIM BS(10) 


30 HOME : FOR I = 1 TOIl0 

35 READ BS(I): PRINT TAB( 11) 
:BS(I) 

40 NEXT : PRINT : PRINT 


45 INPUT "QUAL O ANTMAL ?7";AS 
50 FOR X = 1 'TOl0 

60 IF BS(X) = AS THEN VTAB (X 
): PRINT "ACHEI >>" :X = 10 

70 NEXT : VTAB (13): GOTO 45 
BO DATA ANTILOPE, CACHORRO, ELE 
FANTE, GOLFINHO, JUMENTO, LEOPARDO 
«MACACO, PERIQUITO, RAPOSA, SAPO 


10 REM BUSCA SERIAL 

20 DIM B$(10) 

30 CLS:FOR I=1 TO 10:READ BS(I) 
«PRINT €33+1*32,BS(I);:NEXT 

40 PRINT €417,STRINGS(30,32):ST 
RINGS (30,8);: INPUT"QUAL O ANIMA 
L “;AS 

50 FOR X=1 TO 10 

60 IF BS(X)=AS THEN PRINT €46+X 
*32,CHRS(191);"ACHEI";:X=10 

70 NEXT:GOTO 40 

BO DATA ANTILOPE, CACHORRO, ELEFA 
NTE, GOLFINHO, JUMENTO, LEOPARDO,M 
ACACO, PERIQUITO, RAPOSA, SAPO 


A rotina de busca binária (listada a 
seguir), um pouco mais difícil de se pro- 
gramar que a de busca serial, é bem mais 
rápida que esta. A diferença de veloci- 
dade entre ambas torna-se maior à me- 
dida que a quantidade de dados da lista 
aumenta. 

A busca binária é mais rápida que a 
serial porque não utiliza o processo de 
inspeção item por item. Ela requer que 
todos os dados tenham sido previamente 
colocados em ordem alfabética ou nu- 
mérica. Cumprido esse pré-requisito, O 
computador analisa o elemento central 
da lista, para definir se se orientará pa- 
ra sua metade superior ou para sua me- 
tade inferior. 

A metade escolhida será novamente 
dividida ao meio e, a partir da análise 
desse novo elemento central, outra me- 
tade será escolhida e igualmente dividi- 
da ao meio. 

O processo se repete até que o item 
desejado seja encontrado, ou, caso con- 
trário, até que não haja mais nenhuma 
possibilidade de dividir a lista ao meio. 

No início, o computador não procu- 
ra por itens que sejam totalmente equi- 
valentes, mas apenas compara a primei- 
ra letra, verificando se, na ordem alfa- 
bética, ela vem antes ou depois da do 
item desejado. 


| | 
| 
| | 


10 CLS : RESTORE 

20 LET t=10: LET b=1 
30 DIM n$(10,10) 

40 FOR c=1 TO 10 

50 READ n$(c) 

60 NEXT c 

70 INPUT "NOME DO ANIMAL ";as 
7/5 LET ag=a5+" "( TO 
10-LEN as) 

BO PAUSE 50 

95 CLS 

100 IF nS(t)j=aS THEN PRINT n$ 
(t),t: GOTO 200 

110 IF n$(B)=aS THEN PRINT n$ 
(bD),b: GOTO 200 
120 LET p=INT (0.5+(t+b)/2) 


130 IF n3(p)=aS THEN PRINT n3. 


(Pp) ,p: GOTO 200 

140 IF n$(p)>aS THEN LET t=p 
150 IF n$(p)<aS THEN LET b=p 
160 IF t-b=1 THEN PRINT " N 

AO ACHEI”: GOTO 200 

170 GOTO 100 

200 IF INKEY5="" THEN GOTO 
200 

210 RUN 

580 DATA "Antilope”,"Cachorro” 
»"Elefante”,"Golfinho”,"Jument 

o","Leopardo”","Macaco”,"Periqu 
ito”","Raposa”,"Sapo” 


10 CLS 

20 T=10:B=1 

30 DIM N$(10) 

40 FOR C=1 TO 10 

50 READ NS(C) 

60 NEXT 

70 INPUT"nome do animal”;AS 

BO TIME=O 

90 IF TIME<5SO THEN 90 ELSE CLS 
100 IF NS(T)=AS THEN PRINTNS(T) 
«T:GOTO200 

110 IF N$(B)=AS THEN PRINTNS (B) 
+, B:GOTO200 

120 P=INT(.5+(T+B)/2) 

130 IF NS(P)=AS THEN PRINTNS(P) 
+ P:G0OTO200 

140 IF NS(P)>AS THEN T=P 
150 IF NS(P)<AS THEN B=P 
160 IF T-B=1 THEN PRINT” 
achei” :G0TO200 

170 GOTO 100 

200 IF INKEYS="" THEN 200 
210 RUN 

580 DATA ANTILOPE, CACHORRO, ELEF 

ANTE, GOLFINHO, JUMENTO, LEOPARDO, 
MACACO, PERIQUITO, RAPOSA, SAPO 


Lab) Ló) 


10 HOME 

20 T = 10:B = à 

30 DIM N$S(10) 

40 FORC=1TOlO 

50 READ NS(C) 

60 NEXT 

70 INPUT “QUAL O ANIMAL ?T";AS 


não 








| | 

















80 FOR TT = O TO 200: NEXT 
100 IF NS(T) = AS THEN PRINT 
NS(T),T: GOTO 200 

110 IF NS(B) = AS THEN PRINT 
NS (B),B: GOTO 200 

420 PP INTI.S + (T+B / 8) 


130 IF NS(P) = AS THEN PRINT 

NS (P),P: GOTO 200 

140 IF NS(P) > AS THEN T = P 

150 IF NS(P) < AS THEN B = P 

160 IF T-B = 1 THEN PRINTCP 
NAO ACHEI”: GOTO 200 

170 GOTO 100 


200 GET Z8: IF Z8 = "* THEN 20 
0 

210 RUN 

580 DATA  ANTILOPE,CACHORRO,E 


+. Os —á a 





















E TE DE TR PA 






| pa 
1 
| | 
| 
| 1 
| | 


LEFANTE, GOLFINHO, JUMENTO, LEOPAR 
DO, MACACO, PERIQUITO, RAPOSA, SAPO 





10 CLS 

20 T=10:B=1 

30 DIM NS(10) 

40 FOR C=1 TO 10 

50 READ NS(C) 

60 NEXT 

70 INPUT” NOME DO ANIMAL ";AS 
B0 TIMER=O 

90 IF TIMER<5O THEN 90 ELSE CLS 
100 IF NS(T)=AS THEN PRINT NS(T 
),T:GOTO 200 

110 IF NS(B)=AS THEN PRINT NS(B 


) B:GOTO 200 

120 P=INT(.5+(T+B)/2) 

130 IF NS(P)=AS THEN PRINT NS(P 

) ,P:GOTO 200 

140 IF NS(P)>AS THEN T=P 

150 IF NS(P)<AS THEN B=P 

160: IF T-B=1 THEN PRINT” 
ACHEI" :GOTO 200 

170 GoTo 100 

200 IF INKEY$="" THEN 200 

210 RUN 

580 DATA ANTILOPE, CACHORRO, ELEF 

ANTE, GOLFINHO, JUMENTO, LEOOPARDO 

| MACACO, PERIQUITO, RAPOSA, SAPO 


NAO 





Como foi dito, não existem regras 
práticas para a obtenção de maior velo- 
cidade de execução em nossos progra- 
mas. Os melhores resultados são conse- 
guidos dedicando-se atenção especial a 
detalhes que, isolados, parecem ser insig- 
nificantes, mas que, juntos, fazem a di- 
ferença. Alguns desses detalhes são lem- 
brados no quadro da página 932. Ob- 
servando as recomendações ali contidas, 
você certamente obterá alguma econo- 
mia de tempo. Mas não se esqueça de 
que, muitas vezes, a rapidez de um pro- 
grama procede de uma descoberta indi- 


vidual, resultante, até mesmo, de um | 


simples acaso. 


Qualquer que seja a aplicação a que 
se destine o seu microcomputador, con- 
vém adquirir um acionador de disque- 
tes. Desse modo, você poderá dispor de 
um sistema bem mais confiável e rápi- 
do do que as fitas cassete. 









FUNÇÕES DO DOS 


Do ponto de vista operacional, con- 
tudo, esse sistema apresenta uma peque- 
na desvantagem. Com ele, o usuário é 
obrigado a aprender um número adicio- 
nal de comandos, específicos para ope- 
rações com disquetes. Tais comandos 
fazem parte do chamado Sistema Ope- 
racional de Discos (DOS, sigla decorren- 
te de seu nome em inglês). Eles funcio- 
nam mais ou menos da mesma maneira 
nos diferentes modelos de computador, 
variando apenas a forma com que são 
escritos, e a sua sintaxe de uso, 

As funções básicas de um DOS são: 
- examinar o conteúdo de um disquete 

(catálogo); 

- copiar um arquivo de um disquete pa- 
ra outro ou fazer uma cópia com no- 
me diferente no mesmo disquete; 

- mudar o nome de um arquivo; 

- apagar um arquivo do disquete; 

- listar um arquivo na tela do computa- 
dor ou na impressora; 

- examinar qual o espaço que está dis- 
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ponível no disquete; 
- proteger ou desproteger um arquivo 
contra apagamento ou modificação; 
- executar programas em BASIC ou em 
linguagem de máquina etc. 


Nem sempre, contudo, o usuário es- 
tá disposto a aprender em detalhe todas 
essas funções. De certo modo, estas ca- 
racterizam uma “linguagem” de coman- 
dos, que em alguns computadores é par- 
te das instruções do BASIC, enquanto 
em outros é um sistema totalmente se- 
parado, do qual o interpretador BASIC 
é apenas um programa a mais. 

A listagem apresentada aqui serve co- 
mo “assistente” para a Operação dos vá- 
rios comandos do DOS; ela dispensa a 
necessidade de aprendê-los em detalhe. 
Seu funcionamento se apóia em um 
“cardápio” de opções, mostrado na te- 
la assim que é executado. Escolhendo 
uma das opções apresentadas, o progra- 
ma automaticamente seleciona e execu- 
ta o comando correspondente do DOS. 
Em muitos casos, será necessário entrar 
informações adicionais, tal como o no- 
me de um arquivo. Possíveis erros co- 
metidos pelo usuário, como tentar apa- 
gar um arquivo protegido, serão detec- 
tados pelo programa, que exibirá na te- 





Se você já dispõe de um acionador de 
disquetes mas tem preguiça 

de aprender os comandos do sistema 
operacional (DOS), utilize um 
programa assistente e durma tranquilo. 





la a mensagem correspondente. 

Neste artigo abordaremos versões pa- 
ra os computadores das linhas TRS-80, 
TRS-Color, MSX, Apple Il e TK-2000. 
Os micros da linha Sinclair também po- 
dem ser conectados a disquetes, ou “mi- 
crodrives””, fitas em alça sem fim, de 
comportamento semelhante aos disque- 
tes; mas como estes periféricos não são 
encontrados no país, deixamos de apre- 
sentar uma versão para eles. 

Digite os programas a seguir e arma- 
zene-os em um disquete. Para testar as 
opções do menu sem correr o risco de 
perder algo importante, copie no disque- 
te alguns arquivos e programas de que 
não vai precisar. 


o do PAS 


10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; “ASSIS 
TENTE D.0.5." 

35 PRINT 
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7 O QUE É UM SISTEMA IH DETECÇÃO DE ERROS 
OPERACIONAL DE DISCOS E COMO FUNCIONA 

EE FUNÇÕES PRINCIPAIS DO DOS O PROGRAMA 

E JUMASSISTENTE INTELIGENTE IR EXIBIÇÃO DO MENU 

[| INFORMAÇÕES ADICIONAIS E LIMITAÇÕES 








40 PRINT "==============u====== 251 IF D5<>"0" AND D5<>2"1”" THEN 320 PRINT:PRINT "Arquivo ";N$;” 









"a nsssssunm=" GoTo 250 apagado.” 
). 7 50 PRINT "<l> Listar conteudo 252 GOSUB 950 330 GOSUB 910:RUN 
, do disco” 255 PRINT TAB(10);"C A TALO 350 PRINT: INPUT "Nome do arquiv 
: 60 PRINT "<2> Apagar um arquiv G 0º o a ser mudado”;NS 
ag o do disco” 260 PRINT:CMD "D:"+DS 360 INPUT "Novo nome para o arq 
- 4 70 PRINT "<3> Mudar nome de um 270 GOSUB 910:RUN 
e arquivo” 300 PRINT: INPUT "Nome do arquiv 
: B0 PRINT "<4> Executar um prog o para apagar ;NS 
o rama” 310 KILL NS À 
= 90 PRINT "<5> FIM DO PROGRAMA es 
190 PRINT "======s==sssss..ennnas area Er cem 
Â : 200 PRINT:PRINT "Escolha uma op 
e cao: y - | 
- 205 XS=INKEYS:IF X5$="" THEN 205 
E 210 OP=VAL(KS) 
e 230 ON OP GOTO 250, 300, 350, 


400, 900 
240 GOTO 205 


250 INPUT "DRIVE (0/1) ";DS 





4 uivo";N2$ 
Á 370 NAME NS AS N25 
, 380 PRINT:PRINT NS;”" mudado par 
, a ";N25 
, 390 GOSUB 910:RUN 
À 400 PRINT: INPUT "Nome do progra 
7 ma ";NS 
| 410 RUN N$ 
900 GOSUB 950 
905 END 
910 PRINT:PRINT:PRINT 
| 915 PRINT "PRESSIONE QUALQUER 937 











TECLA PARA CONTINUAR” 
920 IF INKEY$S="" THEN 920 

925 RETURN 

950 CLS:RETURN 

960 E=ERR 

965 IF E=51 THEN PRINT "*** ERR 
O INTERNO":GOTO 995 

970 IF E=53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE”: GOTO 995 

990 IF E=56 THEN PRINT "*** NOM 
E ILEGAL DE ARQUIVO" :GOTO 995 
992 PRINT "*X* ERRO DE SINTAXE” 
995 GOSUB 910:RUN 


q a ARBEESeE 


10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; “ASSIS 
TENTE D.0.8.” 

35 PRINT 


40 PRINT "=... 





e——o—o— o 

50 PRINT "<l> 
DO DISCO" 

60 PRINT "<2> 
O DO DISCO” 
70 PRINT "<3> 
ARQUIVO" 

80 PRINT "<d> 


LISTAR CONTEUDO 

APAGAR UM ARQUIV 
MUDAR NOME DE UM 
EXECUTAR UM PROG 
RAMA | 

90 PRINT "<5> FIM DO PROGRAMA 


190 PRINT "=== 
e——o—— 

tapa PRINT:PRINT "ESCOLHA UMA OP 
": 

205 XS=INKEYS:IF X9="" THEN 205 
210 OP=VAL (X8) 

230 ON OP GOTO 250, 300, 350, 

400, 900 

240 GoTO 205 

250 GOSUB 950 

255 PRINT TAB(1L0);"CA TALO 

Gg o 

260 PRINT:DIR 

270 GOSUB 910:RUN 

300 PRINT: INPUT "NOME DO ARQUIV 
O PARA APAGAR" ;N$S 

310 KILL N$ 

320 PRINT:PRINT "ARQUIVO ";N3;* 

APAGADO. * 

330 GOSUB 910:RUN 

350 PRINT: INPUT "NOME DO ARQUIV 
O à SER MUDADO” ;N$ 

360 INPUT "NOVO NOME PARA O ARQ 
UIvVO”;N28 

370 NAME N$ AS N28 

380 PRINT:PRINT N$8;" MUDADO PAR 
A ";N28 

390 GOSUB 910:RUN 

400 PRINT: INPUT "NOME DO PROGRA 


en 
98 MA ";NS 
1) 
] 
À 


410 RUN N$ 
900 GOSUB 950 
905 END 

910 PRINT:PRINT:PRINT 
915 PRINT "PRESSIONE QUALQUER 
TECLA PARA CONTINUAR” 

920 IF INKEYS="" THEN 920 

925 RETURN 

950 CLS:RETURN 

960 E=ERR 

965 IF E=51 THEN PRINT "*** ERR 
O INTERNO":GOTO 995 

970 IF E=53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE”: GOTO 995 

990 IF E=56 THEN PRINT "*** NOM 
E ILEGAL DE ARQUIVO” :GOTO 995 
992 PRINT "*** ERRO DE SINTAXE” 
995 GOSUB 910:RUN 

10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; "ASSIS 
TENTE D.0.8." 

35 PRINT 

ã0O PRINT "assnsssssnnnnannnnanaas 
50 PRINT "<l> Listar conteúdo 
do disco” 

60 PRINT "<2> Apagar um arquiv 
o do disco" 

70 PRINT "<3> Mudar nome de um 
arquivo” 

B0 PRINT "<d> 
rama” 

90 PRINT "<5> FIM DO PROGRAMA 
190 PRINT "suas 


200 PRINT:PRINT "Escolha uma op 
cão:!"; 

205 XS=INKEYS:IF X$="" THEN 205 
210 OP=VAL (XS) 

230 ON OP GOTO 250, 300, 350, 
400, 900 

240 GOTO 205 

250 GOSUB 950 

255 PRINT TAB(1L0) "NC A T-A LO 
G 0” 

260 PRINT:FILES 

270 GOSUB 910:RUN 

300 PRINT: INPUT "Nome do arquiv 
o para apagar" ;N3 


Executar um prog 


310 KILL NS 
320 PRINT:PRINT "Arquivo ";NS;” 
apagado.” 

330 GOSUB 910:RUN 

350 PRINT: INPUT "Nome do arquiv 
o a ser mudado";NS 

360 INPUT "Novo nome para o arq 
uivo";N25 

370 NAME N$ AS N28 

380 PRINT:PRINT N$;" mudado par 
a ";N25 

390 -GOSUB 910:RUN 

400 PRINT: INPUT "Nome do progra 
ma ";N$ 

410 RUN N$ 

900 GOSUB 950 

905 END 

910 PRINT:PRINT:PRINT 

915 PRINT "PRESSIONE QUALQUER 
TECLA PARA CONTINUAR" 

920 IF INKEYS="" THEN 920 

925 RETURN 

950 CLS:RETURN 

960 E=ERR 

965 IF E=51 THEN PRINT "*** ERR 
O INTERNO" :GOTO 995 

970 IF E=53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE”: GOTO 995 

990 IF E=56 THEN PRINT "*** NOM 
E ILEGAL DE ARQUIVO" :GOTO 995 
992 PRINT "*** ERRO DE SINTAXE” 
995 GOSUB 910:RUN 


“| RES 
10 ON ERR GOTO 960 

15 LET DS=CHRS (4) 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) |; "ASSIS 
TENTE D.0.58.” 

35 PRINT 


40 PRINT "==nnnnnnnnnannnnnnsss 


50 PRINT "<l> LISTAR CONTEUDO 
DO DISCO” 






latas dat Pi LM E RN kN RA DES a da sd as dd o DS SS 





60 PRINT "<2> APAGAR UM ARQUIV 
oO DO DISCO” 

65 PRINT “<3> MUDAR NOME DE UM 
ARQUIVO” 

70 PRINT "<4> EXECUTAR UM PROG 
RAMA” 

75 PRINT *<5> PROTEGER UM ARQU 
IVO” 

B0 PRINT “<6> DESPROTEGER UM A 
RQUIVO” 

85 PRINT "<7> VERIFICAR UM ARQ 
VIVO” 

90 PRINT "<B> FIM DO PROGRAMA 


190 PRINT "====s=========nenzuas 


200 PRINT: PRINT "ESCOLHA UMA OP 
CAO:”; 

205 GET X5 

210 LET OP=VAL (X5) 

230 ON OP GOTO 250, 300, 350, 
400, 450, 500, 550, 900 


240 GOTO 205 

250 GOSUB 950 

255 PRINT TAB(10);"C A TALO 
G 0º 

260 PRINT:PRINT DS;"CATALOG” 
270 GOSUB 910:RUN 

300 PRINT:INPUT "NOME DO ARQUIV 
O PARA APAGAR” ;NS$S 

310 PRINT D$S;"DELETE ";NS 

320 PRINT:PRINT “ARQUIVO ";NS;" 
APAGADO . * 





330 GOSUB 910:RUN 


350 PRINT: INPUT “NOME DO ARQUIV 
O A SER MUDADE” ;NS 
360 INPUT "NOVO NOME PARA O ARG 


UIVO";N2$ 

370 PRINT DS;"RENAME 
“;NS;","N25 

380 PRINT:PRINT N$;” MUDADO PAR 
A ";N25 

390 GOSUB 910:RUN 

400 PRINT: INPUT "NOME DO PROGRA 


MA ";NS 

410 PRINT D$S;"RUN ";NS 

450 PRINT:INPUT “NOME DO ARQUIV 
O PARA PROTEGER ";NS 

460 PRINT DS;"LOCK ";NS 

470 PRINT:PRINT "ARQUIVO ";N$S;" 
PROTEGIDO." 

480 GOSUB 910:RUN 

500 PRINT:INPUT "NOME DO ARQUIV 
O PARA DESPROTEGER ":;NS 

510 PRINT D$;"UNLOCK ";NS 

520 PRINT:PRINT "ARQUIVO ";NS;" 





DESPROTEGIDO.” 

530 GOSUB 910:RUN 

550 PRINT: INPUT "NOME DO ARQUIV 
O PARA VERIFICAR ";NS 

560 PRINT DS;"VERIFY “:;NS 

570 PRINT: PRINT "ARQUIVO ";NS;" 
CORRETO.” 

580 GOSUB 910:RUN 

900 GOSUB 950 

905 END 

910 PRINT:PRINT:PRINT 

915 PRINT "PRESSIONE RETURN 
PARA CONTINUAR” 










MNE ci 


920 GET XS 

925 RETURN 

950 HOME: RETURN 

960 LET E=PEEK (222) 
965 IF E=B THEN PRINT 
DE E/S" :GOTO 995 

970 IF E=6 THEN PRINT "*** ARQU 
VO INEXISTENTE”: GOTO 995 

970 IF E=10 THEN PRINT "*** ARQ 
UIVO PROTEGIDO”: GOTO 995 

990 IF E=13 THEN PRINT "*** TIP 
O ILEGAL DE ARQUIVO” :GOTO 995 
992 IF E=11 THEN PRINT "*** ERR 
O DE SINTAXE” 

995 GOSUB 910:RUN 


"axa ERRO 





COMO FUNCIONA | 


As linhas 10 a 240 mostram o menu 
na tela. Ele varia conforme o modelo do 
computador, pois nem todas as suas 
funções são iguais, ou acessíveis por 
meio de um programa. 

A linha 230 (ON...GOTO) desvia o 
programa para o trecho corresponden- 
te a cada função. O comando ON ERR 
GOTO logo na primeira linha serve pa- 
ra detectar erros de processamento de 
um comando do DOS. Caso isso acon- 
teça, ele desvia o programa para o tre- 
cho em que será mostrada uma mensa- 
gem de erro (linha 960 em diante). 

- Após acionar a função do DOS que 
foi solicitada, o programa se auto-exe- 
cuta novamente, mostrando a tela de 
opções. A única exceção, em todos os 
microcomputadores, acontece quando 
se solicita a execução de um outro pro- 
grama: não há retorno automático ao 
menu inicial, e você deve executá-lo 
mais uma vez, se quiser. 

As linhas 910 e 950 marcam o início 
de duas sub-rotinas usadas repetidamen- 
te ao longo do programa. A primeira 
(910) serve para colocar uma mensagem 
no vídeo, avisando que o usuário deve 
pressionar a tecla <RETURN> ou 
< ENTER> para limpar a tela e voltar 
ao menu principal (nos micros das linhas 
MSX, TRS-80 e TRS-Color, pode-se 
pressionar qualquer tecla). 

A sub-rotina na linha 950, por sua 
vez, é usada apenas para limpar a tela; 
ela foi colocada ai para facilitar a con- 
versão do programa para outros micros. 
Assim, em vez de ter de alterar todas as 
linhas do programa onde ocorre um 
CLS, ou um HOME (e são muitas), é 
mais fácil modificar apenas uma. 


Os micros da linha TRS-Color não 
têm um sistema operacional separado, 
como é o caso dos modelos das linhas 
TRS-80 e MSX. Ao se inserir o conec- 





tor do acionador de disquetes na porta 
de cartuchos da máquina, o BASIC ar- 
mazenado na ROM do computador fi- 
ca apto para usar os comandos exclusi- 
vos para a operação do disquete. Esses 
comandos são poucos, em contraste, 
mais uma vez, com o TRS-80. As ins- 
truções principais — de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 
retamente do disco (RUN) —, contudo, 
são idênticas às do TRS-80; por isso os 
programas para ambas as linhas são si- 
milares. A única diferença diz respeito 
ao comando usado para listar o catálo- 
go do disquete (DIR). 


Os micros da linha TRS-80 contam 
com um sistema operacional separado, 
que pode ser invocado fora do BASIC. 
Esse sistema é armazenado nas trilhas 
do meio do disquete, e é carregado au- 
tomaticamente toda vez que o compu- 
tador é inicializado. Entretanto, o BA- 
SIC de disco tem alguns comandos se- 
melhantes, em operação, aos comandos 
do DOS. Embora em pequeno número, 
esses comandos são a base do funciona- 
mento do programa aqui apresentado. 
Os principais são os de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 
retamente do disco (RUN). Eles são 
idênticos aos do TRS-Color; por isso os 
programas para ambas as linhas são si- 
milares. A única diferença diz respeito 
à instrução usada para listar o catálogo 
Ido disquete (DIR) no TRS-Color. No 
TRS-80 é usado o comando genérico 
CMD, que dá acesso direto, a partir do 
BASIC, a várias funções do DOS. Para 
obter o catálogo, por exemplo, usa-se 
CMD “'D:0'" ou CMD “D:1”, depen- 
dendo do acionador em que está o dis- 
quete. Note que o número do acionador 
é perguntado pelo programa. 


ny 


Como no caso anterior, os micros da 
linha MSX têm um sistema operacional 
separado, que pode ser invocado fora do 
BASIC. Armazenado nas trilhas iniciais 
do disquete, esse sistema é carregado au- 
tomaticamente toda vez que o compu- 
tador é inicializado. Entretanto, o BA- 
SIC de disco conta com algumas instru- 
ções semelhantes, em operação, aos co- 
mandos do DOS. Essas instruções for- 
mam a base do funcionamento do pro- 
grama aqui apresentado. Os comandos 
principais são os de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 


retamente do disco (RUN). Eles são 
idênticos aos do TRS-BO e do TRS- 
Color; por isso os programas para am- 
bas as linhas são similares. A única di- 
ferença refere-se ao comando que lista 
o catálogo do disquete (DIR no TRS- 
Color, CMD no TRS-80). No MSX, es- 
se comando se chama FILES, e, em ope- 
ração, é equivalente à instrução DIR do 
seu sistema operacional. Os acionado- 
res de disquetes podem ser chamados de 
A ou B. Note que o programa pergunta 
o nome do acionador. O programa uti- 
liza todos os comandos referidos. 


Dito 


Assim como os microcomputadores 
da linha TRS-Color, os modelos das li- 
nhas Apple e TK-2000 não dispõem de 
um sistema operacional de discos sepa- 
rado do BASIC. Ao ser utilizado com 
disquete, o interpretador de ambas as 
máquinas passa automaticamente a ter 
acesso aos comandos específicos neces- 
sários à sua operação. 

Entretanto, há um pequeno proble- 
ma: os comandos básicos, como RUN, 
DELETE, RENAME, LOCK, UN- 
LOCK, VERIFY e CATALOG, só res- 
pondem quando usados de modo dire- 
to (isto é, fora de um programa). Para 
executá-los a partir de um programa, é 
necessário colocar a cadeia de coman- 
dos dentro de um PRINT, o qual deve 
transmitir antes o caractere ASCII 4; só 
agindo jassim a/jmanobra surtirá efeito. 

Isso é explorado pelo programa, que, 
aliás, é o mais extenso de todos, em vir- 
tude da maior flexibilidade do Apple pa- 
ra explorar comandos do DOS a partir 
de um programa em BASIC. 


LIMITAÇÕES 


O programa apresentado atinge seu 
principal objetivo, pois, de fato, per- 
mite ao usuário operar com disquetes 
sem conhecer os comandos adicionais 
específicos. Porém, como todo progra- 
ma que tenta substituir uma linguagem 
de comandos por um sistema de esco- 
lha por cardápios, o nosso “assistente” 
tem algumas limitações. Em outras pa- 
lavras, da forma como está, ele não é 
capaz de explorar todas as possibilida- 
des de uso dos comandos do DOS. Por 
exemplo, nos micros da linha MSX, ele 
não usa os caracteres ? e * para listar 
os arquivos de um determinado tipo, 
presentes no catálogo. 

Se você conhece bem os comandos do 
DOS do seu micro, não será dificil mo- 
dificar o programa apresentado, am- 
pliando suas funções e utilidade. 
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Apple + 
Apple + 
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Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
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Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
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Spectrum 
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MODELO 
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MC-4000 Exato 
Absolutus 
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DGT-AP 
D-8100 
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Franklin 
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MX-2001 
MX-48 
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Apple Il Plus 
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MC-400 
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Microdigital TK-90X Brasil 
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TK-83. 
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CP-200 
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DGT-1000 
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CP-300 
CP-500 
Sysdata Ill 
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CS-6508 
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TKS-800 
CP-400 
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Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
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Apple Il + 
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EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





RÓXIMO NUMERONIEEEEEI! 


PROGRAMAÇÃO DE JOGOS 
Níveis do jogo 4 Raposa e os Gansos. Rotinas de movimentação 
da raposa e dos gansos. Tabela de posições. 


CÓDIGO DE MÁQUINA 
Avalanche: os perigos da aventura. Níveis de dificuldades — 
os buracos, as cobras e a maré. Rotina de prêmios. 


PROGRAMAÇÃO BASIC 


A função VARPTR no TRS-80. Sub-rotina de transferência. 
Cópia e impressão da tela. 


PROGRAMAÇÃO DE JOGOS 
A Aranha Marciana: definição dos gráficos 
e inicialização do jogo. 








